﻿''' <summary>
''' Tarnungs KO Armee noch unbekannt
''' </summary>
''' <remarks></remarks>
Public Class KOAlex
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "ALEX"
        Armee = Armeen.TI.ToString 'Keine Ahnung vohin mit dem kann spaeter geaendert werden
        Musik = "Alex"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        FeldtarnungsReichweite = 2
        Bewegungsbonus = Nothing
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        FeldtarnungsReichweite = 30 'Soweit wird keine Einheit laufen koennen.
        If OhneFunktion = False Then
            AnimationEigene("KATGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If CommanderWarsGameModi.AdvanceWars = DataSettings.CommanderWarsGameModus Then
            FeldtarnungsReichweite = 30 'Soweit wird keine Einheit laufen koennen.
            If OhneFunktion = False Then
                AnimationEigene("KATGABE", 2)
            End If
            GabeEingesetzt()
        Else
            Bewegungsbonus = New BewegungsboniTabelleAlles_2
            FeldtarnungsReichweite = 30 'Soweit wird keine Einheit laufen koennen.
            If OhneFunktion = False Then
                AnimationEigene("SPEZIALGABE", 2)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub


End Class

Public Class KOBeschreibungAlex
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Alex"
        Fein = "Geheimnisse"
        Nein = "Offene faire Spiele"
        Beschreibung = New String() {"Ein erfahrener KO", "der auf Hinterhalte schwoert.", "Er ist der Meinung", "Taeuschung ist alles."}
        Stil = New String() {"Seine Truppen sind getarnt,", "wenn sie sich kaum Bewegen."}
        Gabebeschreibung = New String() {"Seine Truppen sind", "immer getarnt, wenn" + "sie sich bewegen."}
        SpezialgabeBeschreibung = New String() {"Seine Truppen sind" + "immer getarnt" + "und sie koennen weiter laufen."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Versteck Spiel", "Unsichtbare Macht"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Sucht mich doch!" _
                                    , "Seid ihr blind hier trueben bin ich!" _
                                    , "Ich bin in eurem Ruecken, ihr habt keine Chance." _
                                    , "Tarnen und Taeuschen. Wisst ihr noch, was passiert ist?" _
                                    , "Jetzt spielen wir Verstecken." _
                                    , "Truppen zieht die Tarnmaentel an."}
        Siegsaetze = New String() {"Was man nicht sieht kann man nicht besiegen." _
                                , "Taktik und Hinterhalte sind der Schluessel zum Sieg." _
                                , "Wer mich sucht findet nur die Niederlage."}
        Tauschsaetze = New String() {"Ich war nicht weg, du hast mich nur nicht gesehen." _
                                    , "Hey! Ihre Blindfische hier drueben bin ich."}
        Doppelgabesaetze = New DoppelGabesatz() {}
        Niederlagesaetze = New String() {"Wie kann das sein? Du konntest mich gar nicht sehen!", _
                                     "Einfach die ganze Karte in die Luft jagen zaehlt nicht."}
    End Sub
End Class
